﻿Imports System.Data.OleDb

Public Class Notas
    Inherits Datos

    Public Sub InsertarNotaProfesor(ByVal nroExpediente As String, ByVal dniProfesor As String)

        comando.CommandText = "insertNotaProfesor"
        comando.Parameters.Add(New OleDbParameter("@paramNroExpediente", nroExpediente))
        comando.Parameters.Add(New OleDbParameter("@paramDni", dniProfesor))

        Me.ejecutarComando()
    End Sub

    Public Function InsertarNroResolucionCAL(ByVal nroResolucionCAL As String _
                                    , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)

        comando.CommandText = "insertNroResolucionCAL"
        comando.Parameters.Add(New OleDbParameter("@paramNroResolucion", nroResolucionCAL))
        comando.Parameters.Add(New OleDbParameter("@@paramFecha", fechaResolucion))
        comando.Parameters.Add(New OleDbParameter("@paramNroExpediente", nroExpediente))

        Return Me.ejecutarComando()
    End Function

    Public Sub InsertarNroResolucionAN(ByVal nroResolucionAN As String _
                                , ByVal nroExpediente As String, ByVal fechaResolucion As DateTime)

        comando.CommandText = "insertNroResolucionAN"
        comando.Parameters.Add(New OleDbParameter("@paramNroResolucion", nroResolucionAN))
        comando.Parameters.Add(New OleDbParameter("@@paramFecha", fechaResolucion))
        comando.Parameters.Add(New OleDbParameter("@paramNroExpediente", nroExpediente))

        Me.ejecutarComando()
    End Sub

    Public Function obtenerNotasAprobadas() As DataSet
        Return Me.ObtenerSelect("obtenerNotasAprobadas", "NotasAprobadas")
    End Function

    'Sobrecarga de funcion con parametros de fecha
    Public Function obtenerNotasAprobadas(ByVal fechaDesde As DateTime, ByVal fechaHasta As DateTime) As DataSet
        Return ObtenerSelect("obtenerNotasAprobadasAño", "NotasAprobadasAño", fechaDesde, fechaHasta)
    End Function

    Public Function obtenerNotas(ByVal nroExpediente) As DataSet
        Return ObtenerSelect("obtenerNotasAprobadasExpediente", "NotasAprobadasExpediente", "@paramNroExpediente", nroExpediente)
    End Function

    Public Function obtenerNotasProfesores(ByVal nroExpediente As String) As DataSet
        Return ObtenerSelect("obtenerNotasProfesores", "NotasProfesores", "@paramNroExpediente", nroExpediente)
    End Function

End Class
